home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 5
/
Skunkware 5.iso
/
lib
/
logolib
/
reduce
< prev
next >
Wrap
Text File
|
1995-05-03
|
238b
|
8 lines
to reduce :reduce.function :reduce.list
if emptyp bf :reduce.list [op first :reduce.list]
op apply :reduce.function (list (first :reduce.list) ~
(reduce :reduce.function bf :reduce.list))
end
bury "reduce